package FIT::eg::Fixture::HeadListOfStr;

use FIT::Class;

extends 'FIT::Fixture::Column';

has list => (is => 'rw', isa => 'ArrayRefOfStr'); # , default => sub { [qw( x y z )] });
has head => (is => 'rw', isa => 'Str');

sub compute_head {
    die "Can't head empty list" unless @{ $self->list };
    return $self->list->[0];
}
